2 POKE 53281,1:POKE 53280,0
4 POKE 52,60:POKE 56,60
5 PRINT "[147]"
10 DATA 120,169,73,141,20,3,169,3,141
20 DATA 21,3,88,96,169,208,133,252,169
30 DATA 3,133,251,162,1,160,0,177,251
40 DATA 105,01,144,2,169,251,145,251,224
50 DATA 7,240,8,232,230,251,230,251,24
60 DATA 144,234,173,1,220,41,15,201
62 DATA 11,240,7,201,7,240,16,76,49,234,173,0,208,201,32,240,246,206,0,208
64 DATA 24,144,240,173,0,208,201,255,240,233,238,0,208,24,144,227,0,0,0,0,0
70 FORU=828TO921:READQ:POKEU,Q:NEXT
80 SYS828:POKE 53248+21,0:VIC=53248
85 GOSUB 400
86 REM
87 GOSUB 1000
89 POKE 856,2
90 X5=RND(-SQR(RND(1)*TI))
100 S=53248:PRINT "[147][144]"
105 POKE 53281,3
110 FORU=1024 TO 1063:POKEU,160:POKEU+960,160
115 POKE54272+U,6:POKE54272+U+960,6:NEXT
120 FORU=1024 TO 1984 STEP 40:POKEU,160:POKE U+33,160:POKE U+39,160
125 POKE U+54272,14:POKE 54272+U+33,14:POKE54272+U+39,14:NEXT
126 POKE 53281,1
130 FORU=0TO14STEP2:POKEU+VIC,(U*18):NEXT
131 POKE 2040,203
132 POKE VIC+28,34:POKE VIC+37,5:POKE VIC+38,5
133 FORU=40 TO 47:POKEVIC+U,5:NEXT
135 POKE VIC+21,255
140 FORI=1TO7:POKE 2040+I,202:NEXT
141 DI=254
145 X=150:DI=0
146 POKE VIC,X:TI$="000000":A$(2)="SECOND":A$(3)="THIRD ":A$(4)="FOURTH "
147 A1=PEEK(VIC+30):FORI=0TO24:POKE54272+I,0:NEXT
148 POKE 54296,15:POKE 54273,0:POKE54277,85:POKE54278,85:POKE 54276,129
149 A$(1)="BRAKE ":G=2:A$(5)="OVER DRIVE"
150 I=0:A=INT (RND(1)*7)+1:IF PEEK(VIC+(A*2)+1)>240 THEN I=1
151 A1=PEEK(VIC+30)AND1:IFA1THEN 3000
154 IFBR=0THENPOKE 856,G
155 IFBR=0THENIF(PEEK(56321)AND16)=0THENPOKE856,1:BR=1:GOSUB5000
156 IFBRTHEN DI=DI-1
157 IFBRTHENIF(PEEK(56321)AND16)=16THENPOKE856,G:BR=0:POKE54276,129:GOSUB5100
161 DI=DI+1:PRINT" DISTANCE TO GO:    [157][157][157][157]"400-DI;:IF DI =>400 THEN 1500
162 IF TI$="000010"THENG=3
163 IF TI$="000050"THENG=4
165 PRINT TAB(20);" GEAR ";A$(PEEK(856));
166 PRINT ""TAB(33);""TI$"
167 [153] ""[163]34)"TIME"
168 [151] 54272,G[172]30[170]20
169 [139] TI$[178]"000008" [167] [153]""[163]9);"SHIFTING GEARS"
170 [139] TI$[178]"000048" [167] [153]""[163]9);"SHIFTING GEARS"
171 [139] TI$[178]"000011" [167] [153]""[163]9);"              "
172 [139] TI$[178]"000051" [167] [153]""[163]9);"              "
174 [139]I[178]0[167][137] 150
175 [151] 2040[170]A,202
177 [151] VIC[170](A[172]2)[170]1,0
178 A1[178][194](VIC[170]30)[175]1:[139]A1[167] 3000
179 [151] 54272,[194](856)[172]12
180 [137] 150
400 [143]
405 [153] "LOAD"
470 [131]0,0,120,198,60,204,198,102
480 [131]192,246,102,120,246,102,12,222,102
490 [131]204,222,102,120,198,60,0,0,0
500 I[178]200:[141] 520
510 [137] 560
520 [129]R[178]I[172]64[164](I[172]64)[170]62:[151]R,0:[130]
530 [129]U[178]I[172]64[170]19 [164] I[172]64[170]45:[135]Q:[151]U,Q:[130]
540 [142]
560 I[178]201:[141] 520
570 [131] 0,0,0,120,49,248,204,120,96
580 [131] 192,204,96,192,252,96,192,204,96
590 [131] 204,204,96,120,204,96,0,0,0,0
605 [151] 2040,200:[151] 2041,200:[151] 2042,201:VIC[178]53248
610 [151] VIC[170]21,6:[151] VIC[170]29,7:[151]VIC[170]23,7
620 [151] VIC[170]2,136:[151]VIC[170]4,188
625 [151] VIC[170]41,14:[151] VIC[170]40,14
630 [151] VIC[170]3,0:[151]VIC[170]5,0
632 S[178]54272:[151]S[170]24,15:[151]S[170]5,85:[151]S[170]6,85:[151]S[170]12,85:[151]S[170]13,85
634 [151] S[170]4,33:[151]S[170]11,17
640 [139] [194](VIC[170]3)[178][177]127 [167] [151] VIC[170]1,[194](VIC[170]3):[137] 660
645 [151] S[170]1,128[171][194](VIC[170]3):[151]S[170]8,128[171][194](VIC[170]5)
650 [137] 640
660 [151] VIC,[194](VIC[170]2):[151] VIC[170]21,5:[151] VIC[170]1,127:[151]VIC[170]39,6
670 [139] [194](VIC[170]5)[177][178]127 [167] 690
675 [151] S[170]8,128[171][194](VIC[170]5)
680 [137] 670
690 [151] 856,0:[151] VIC[170]41,6:[151]VIC[170]5,127
693 [151] S[170]24,0
700 [129]U[178]0[164]5:[129]E[178]0[164]14:[151]VIC[170]39,E:[151]VIC[170]41,E:[130]E,U:[141]720
701 [151] 53254,171:[151]53255,200:[151]53257,100:[151]53256,171:[151]2044,204
702 [151]2043,203:[151] VIC[170]21,13[170]16
703 [151] VIC[170]42,12
704 [151] 198,0:[129]DL[178]1[164]400:[130]
705 SB[178]1024:CB[178]SB[170]54272:[129]I[178]10[164]29:[151]SB[170]I[170]160,160:[151]CB[170]I[170]160,6
706 [151] SB[170]I[170]880,160:[151]CB[170]I[170]880,6:[130]:[129]I[178]4[164]22:W[178]I[172]40:[151]SB[170]W[170]10,160
707 [151] CB[170]W[170]10,6:[151]SB[170]W[170]29,160:[151]CB[170]W[170]29,6:[130]
708 [153]"STOPPRESS FIRE"
710 [161] A$:[139]A$[178]""[167]710
711 [151] VIC[170]21,0:[129]U[178]0[164]14:[151]U[170]VIC,0:[130]
715 [151]VIC[170]23,0:[151] VIC[170]29,0:[153]"LOAD":[142]
720 [129]I [178]202[172]64 [164] 204[172]64[170]62
730 [135] Q:[151]I,Q:[130]:[142]
740 [131] 0,16,0,0,40,0,0,84,0
750 [131] 0,170,0,1,85,0,2,170,128
760 [131] 5,85,64,2,170,128,5,85,64
770 [131] 10,170,160,21,85,80,10,170,160
780 [131] 21,85,80,42,170,168,0,56,0
790 [131] 0,65,0,0,56,0,5,85,64
800 [131] 42,128,168,0,0,0,0,0,0
810 [131] 0,0,0,0,0,0,0,0,0,0,0,0,0
820 [131] 126,0,126,24,255,24,126,126,126
830 [131] 31,255,248,126,126,126,24,255,24
840 [131] 126,255,126,16,255,8,112,255,14
850 [131] 23,0,232,119,255,238,22,255,104
860 [131] 118,255,110,22,255,104,119,255,238
870 [131] 16,0,8,126,0,126,0,0,0,0
880 [142]
1000 [143]    ***    INSTRUCTIONS       ***
1001 [153] "LOAD":A1[178][194](56321)[175]16:[139]A1[178]0[167]1000
1002 [151] 856,0
1003 [151] VIC[170]23,0:[151] V[170]29,0
1005 [151] 53281,6:[129]I[178]12[164]27:[151]1064[170]I,160:[151]1064[170]I[170]160,160:[130]
1008 [129]I[178]1064 [164] 1064[170]160[169]40:[151]I[170]12,160:[151]I[170]27,160:[130]
1010 [153] ""[163]14);"CONTINSTRUCTIONS"
1020 [153] [163]14);"TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB("
1040 [153] "CONT   YOU ARE ONE OF THE RANGERS"
1050 [153] "  WITH THE JOB OF RESCUING"
1060 [153] "  SKIERS AT THE MOUNT CRUMB SKI LODGE."
1090 [153] "  YOU MUST MAKE THE TREACHEROUS"
1100 [153] "  CLIMB TO SAVE THEM"
1110 [153] "   THIS IS YOU:"
1120 [153] [163]15);"AND(null)"
1130 [153] [163]15);"USR(null)":VIC[178]53248
1132 [151] VIC[170]5,70:[151] VIC[170]4,40:[151] 2042,202:[151]VIC[170]41,0
1140 [151] VIC[170]21,5:[151]2040,203
1150 [151] VIC,180:[151] VIC[170]1,200
1160 [153] "LIST  PRESS FIREWAIT TO START"
1163 SB[178]1024:CB[178]54272[170]SB:[129]I[178]0[164]39:[151]SB[170]I,160:[151]CB[170]I,7
1164 [151]SB[170]I[170]960,160:[151]CB[170]I[170]960,7:[130]
1165 [129]I[178]0[164]960 [169] 40
1166 [151]SB[170]I,160:[151]CB[170]I,7:[151]SB[170]I[170]39,160:[151]CB[170]I[170]39,7:[130]
1170 A[178][194](56321)[175]16:[139]A[167]1170
1180 [153]"LOAD":[151]VIC[170]21,0:[142]
1500 [143]
1501 [151] VIC[170]11,0:[151]2045,204
1502 T$[178]TI$
1505 [151] VIC[170]21,252
1510 [139] [194](VIC[170]5)[178][179]50[167]1510
1520 SP[178]53251:[129]U[178]1[164]7
1530 [139] U[178]5[167]1550
1540 [151]SP,0
1550 SP[178]SP[170]2:[130]
1560 [139] [194](VIC[170]11)[178][179]150 [167] 1560
1570 [151] 856,2
1580 [139][194](VIC[170]11)[178][179]179 [167] 1580
1590 [151] 856,0
1600 [153] ""[163]11);"YOU MADE IT"
1610 H1(1)[178]25:L1(1)[178]30:H2(1)[178]18:L2(1)[178]209
1620 H1(2)[178]33:L1(2)[178]135:H2(2)[178]25:L2(2)[178]30
1630 H1(3)[178]42:L1(3)[178]62 :H2(3)[178]31:L2(3)[178]165
1640 H1(4)[178]50:L1(4)[178]60 :H2(4)[178]37:L2(4)[178]162
1650 H1(5)[178]42:L1(5)[178]62 :H2(5)[178]31:L2(5)[178]165
1660 H1(6)[178]50:L1(6)[178]60 :H2(6)[178]37:L2(6)[178]162
1670 S[178]54272:[151]S[170]5,85:[151]S[170]6,85:[151]S[170]12,85:[151]S[170]13,85
1680 [151]S[170]24,15:[151]S[170]4,33:[151]S[170]11,17
1685 [129] X[178]1[164]6:[151]S,L1(X):[151]S[170]1,H1(X):[151]S[170]7,L2(X):[151]S[170]8,H2(X)
1690 [139] H1(X)[178]50[167][129]T[178]1[164]200:[130]
1695 [129]T[178]1[164]200:[130]:[130]X
1699 [129]D[178]0[164]24:[151]S[170]D,0:[130]
1700 [137] 3100
3000 [143]
3002 [151]856,0:S[178]54272:[151]S,240:[151]S[170]1,33:[151]S[170]5,8:[151]S[170]22,104:[151]S[170]23,1
3003 [151] S[170]24,79
3005 [151]S[170]4,129:[129]DL[178]1[164]100:[130]:[151]S[170]4,128
3006 [151] 856,1
3010 [129]I[178]200 [164] 251:[151]53249,I:[130]
3060 [151] 856,1:T$[178]TI$:[151]S[170]4,0
3070 [129]Y[178]32[164]50:[151]2040,Y:[130]
3080 [151] VIC[170]21,254
3081 S[178]54272:[151]S[170]24,15:[151]S[170]5,85:[151] S[170]1,1:[151] S[170]4,17
3083 [129]DL[178]1[164]200:[130]:[151]S[170]4,16:[129]DL[178]1[164]200:[130]:[151] S[170]4,0
3090 [153] ""[163]8);"    YOU CRASHED  "
3095 [151] 54276,0
3100 [153] ""[163]13)"GAME OVER"
3105 [151]S[170]4,0:[151]S[170]4,33:[151]S[170]5,85:[151]S[170]24,15
3110 A1[178][194](56321)[175]16:[151]53280,[187](1)[172]16
3111 SC[178][182]([181](((300[171][197](T$))[172]DI)[173]2)):[139]DI[178]400[167]SC[178]SC[170]500
3112 A[178][181]([187](1)[172]7)[170]1:[139] [194](VIC[170](A[172]2)[170]1)[178]251 [167] [151]VIC[170](A[172]2)[170]1,0
3114 [139] A1 [167] 3110
3115 [151] 56321,0:[151]53280,0
3116 [151] S[170]24,0
3117 [151] 53281,14
3120 [151] VIC[170]21,0
3125 A1[178][194](56321)[175]16:[139] A1[178]0[167]3125
3130 [153] "LOAD"
3133 [153] "             YOUR SCORE "SC
3136 [139]SC[178][177]HS [167] HS[178]SC
3139 [153] "             BEST SCORE "HS
3140 [153] "       WOULD YOU LIKE TO"
3150 [153] "           PLAY AGAIN?"
3160 [153] "              Y / N"
3165 [153] "OPEN   SYSWAIT^OPEN   SYS OPEN WAIT"
3170 A4[178]1761:A5[178]1765
3175 A[178]A4
3180 A1[178][194](56321)[175]15
3190 [139] A1[178]11[167]A[178]A4
3200 [139] A1[178]7 [167] A[178]A5
3210 [151] A4,32:[151]A5,32:[151]A,30
3220 A1[178][194](56321)[175]16:[139]A1[167]3180
3230 [139] A[178]A4 [167] 86
3235 [151] 198,0:[129]I[178]1[164]30:[153]"";:[130]
3240 [158] 64738
4000 [131]  31 , 255 , 224 , 31 , 199 , 224 , 31 , 199 , 224
4010 [131]  31 , 1 , 224 , 31 , 1 , 224 , 31 , 199 , 224
4020 [131]  31 , 199 , 224 , 31 , 255 , 224 , 24 , 0 , 0
4030 [131]  24 , 112 , 0 , 24 , 112 , 0 , 31 , 252 , 0
4040 [131]  24 , 126 , 0 , 24 , 115 , 0 , 24, 246 , 0
4050 [131]  25 , 176 , 0 , 25 , 176 , 0 , 127 , 176 , 0
4060 [131]  225 , 255 , 0 , 0 , 0 , 0 , 0 , 0 , 0
5000 [151] 54276,0:[151]54277,144:[151] 54276,33:[151] 54276,32:[151]54278,144
5005 [151] 54273,20
5010 [142]
5100 [151] 54276,0:[151] 54276,129
5105 [151] 54273,0:[151] 54277,85
5110 [142]